#!/usr/bin/perl
use LWP::UserAgent;
use HTTP::Request::Common qw(POST GET);
use XML::Simple; 
my $status = shift; 
my $ua = LWP::UserAgent->new(); 
my $req = GET 'http://api.twitter.com/1/statuses/public_timeline.xml'; 
my $res = $ua->request($req); 
if ($res->is_success) { 
	my $respuesta=XMLin($res->content); 
	for my $id (keys %{$respuesta->{'status'}} ) { my $mensaje = $respuesta->{'status'} ->{$id}; print "Mensaje de ", $mensaje->{'user'}->{'screen_name'}, " - contenido - ", $mensaje->{'text'}, "\n"; } 
} else { 
die $res->status_line; 
} 
